home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
short.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
779b
|
24 lines
100 N=100
105 INPUT "FREQUENCY (A) IN MHZ"; A
110 B=468/A
115 PRINT B "VALUE OF HALF WAVE LENGTH"
125 INPUT "ENTER LENGTH (C) OF SHORTENED ANTENNA"; C
130 INPUT "ENTER WIRE SIZE IN INCHES (D)"; D
135 IF D<4 THEN 145
140 D=.324826/(1.226075^D)^.5
145 INPUT "ENTER DISTANCE (E) FROM CENTER TO LOADING COIL"; E
150 F=(6500*C/B)/N
155 PI=355/113
160 G=1000000!/(34*PI*A)
165 H=(LOG((234/A-E)*24/D)-1)*((1-A*E/234)^2-1)/(234/A-E)
170 I=(LOG((C/2-E)*24/D)-1)*(((A*C/2-A*E)/234^2-1)/(C/2-E))
175 J=G*(H-I)
180 P=50/(PI*A)
185 K=(J*P)/N
190 PRINT K "INDUCTANCE OF COIL IN MICROHENRIES"
195 IF F>50 THEN B=F/50
200 IF F<50 THEN B=50/F
205 PRINT F "IMPEDANCE OF ANTENNA FEEDPOINT"
210 PRINT B "STANDING WAVE RATIO"
215 PRINT "PROGRAM TRANSLATED FROM KD5DL BY K6WX"